








PREFACE 


I 


This publication provides the information users of the IBM System/360 need t 
make use of the Report Program Generator (hereinafter referred to as the 
RPG ). 


This publication is divided into three sections. The first section covers 
such basic material as the capabilities and logic of the RPG. The second 
section covers all the information a programmer needs to know to use the RPG 
The third section covers six examples of programs written making use of the 
RPG. 


A minimum of programming experience is required to use this publication. 


NOTE: Terms pertinent to this publication are defined 
they are used for the first time. 


in the sections where 


This publication was prepared for production using an IBM computer to update 
the text and to control the page and line format. Page impressions for 
photo-offset printing were obtained from an IBM 1403 Printer with a 
120-character print chain containing upper and lower case letters, special 
characters, and numerals. 


Copies of this and other IBM publications can be obtained through IBM Branch 
Offices. 

A form has been provided at the back of this publication for readers' 
comments. If the form has been detached, comments may be directed to an IBM 
Systems Engineer or addressed to the IBM Corporation, Programming Systems 
Publications, Dept. D58, PO Box 390, Poughkeepsie, N.Y. 12602. 


©1964 by International Business Machines Corporation 
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INIRODUCTION 


Pujr 20 se_of_the_ Program 


The RPG provides programmers with an efficient technique for writing source 
programs that can be translated into object programs capable of: (a) 
obtaining data records from input files (see Figure 1), (b) performing 
operations and calculations (e.g., comparison or addition) on data taken from 
those records or from RPG literals, and (c) writing a printed report (see 
Figure 2) and other output files* These output files may consist of data 
taken from input records, the results of operations and calculations 
performed by the object program, RPG literals, or any combination of the 
three. To make use of the RPG, the programmer does not have to be familiar 
with any other data processing program, or with the IBM System/360. 


RPG Literal 


An RPG literal is any group of numbers or characters, other than quote sign 
characters, that refers to and defines only itself and is entered on an RPG 
coding form. RPG literals that contain alphameric characters must be 
enclosed in quotation signs. RPG literals that contain nothing but numeric 
characters are not enclosed in quotation signs. 



Figure 1. RPG 


Input 
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Figure 2. RPG — Output 


Elements_of_the_RPG 


The RPG consists of a source language and a compiler. The source language 
(l.e., the RPG language) provides programmers with a means for defining: (a) 
the overall or general characteristics of the files to which the input and 
output records belong, (b) the characteristics and fields of input data 
records, (c) RPG literals, (d) the operations or calculations that are to be 
performed by the object program, and (e) the characteristics and fields of 
the output records that are to be written on the printed report and other 
output files. 


The compiler (i.e., the RPG compiler) is capable of 
specified by means of the RPG language and translat 
object program. 


taking the information 
ng it into an executable 


The RPG Language 


The RPG language is 
coding form. These 
The entries made on 


made up of the entries that may be specified on the RPG 
entries are discussed in detail under "Using the RPG.» 
the form are transferred to punched cards and the cards 
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that are the result of this operation are brought together in one card deck 
This card deck is the source program which the RPG compiler is to translate 
into an executable object program. 


Caj2abliitj_es_of_RPG_0bjec t_Prgc[rams 


The object program produced by the RPG compiler is capable of causing the 
execution of the operations discussed in the material that follows. 

1. Write, at the top of each page of a printed report, lines (see 
"Line/Print Line" below) containing information that identifies the data 
printed on subsequent lines of the same page (see lines 1, 2, and 3 in Figure 
2 ). 

2. Obtain data records from input files. 

3. Perform the following operations: 

a. Add the contents of a numeric field or the value of a numeric 
literal to the contents of another numeric field or the value of numeric 
literal and store the result in a result field (see "Record Field" and 
"Result Field" below). 

b. Set a specified result field to zeros, add the value of a literal 

or the contents of another field to the contents of the result field, and 
store the result in the result field. 

c. Subtract the contents of a numeric field or the value of a 
numeric literal from the contents of another numeric field or the value 
of another numeric literal, and store the result in a result field. 

d. Set a result field to zeros, subtract the value of a literal 

or the contents of another field from the contents of the result field, 
and store the result in the result field. 

e. Multiply the contents of a numeric field or the value of a 

numeric literal by the contents of another numeric field or the value of 

another numeric literal, and store the result in a result field. 

f. Divide the contents of a numeric field or the value of a 

numeric literal by the contents of another numeric field or the value of 
another numeric literal and store the quotient in a result field. 

g. Divide the contents of a numeric field or the value of a 

numeric literal by the contents of another numeric field or the value of 

another numeric literal and store the remainder in a result field. 

h. Compare the contents of a field or the value of a literal 

with the contents of another field or the value of another literal and 
set an indicator that specifies the result of the comparison. 

i. Move the contents of a field or the value of a literal into 
a result field. 

j. Search a table of arguments and functions, store the 
appropriate function (if any) in a result field, and set an indicator 
that specifies the result of the search. 

4. Write data records on a printed report and/or other output files (see 
lines 4, 6, 7, etc., in Figure 2). 

5. Write, on a printed report, lines that represent accumulations or totals 
taken from the data records printed on preceding lines of the report (see 
lines 5, 8, 10, etc., in Figure 2). 
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Record Field 


A group of consecutive positions within a record: (a) that is to be treated 
as a logical whole, (b) that is a fixed number of positions in length, and 
(c) that has been assigned a symbolic label by the programmer. 


Result Field 


A special type of field. The primary function of this type of field is to 
provide an area in which the results of arithmetic operations can be stored. 

Line/Print Line 


One line of the standard print or listing form. For_^he_purposes_of_thj_s 
Publication, each such 1 i ne|s_cojnsj_dered_one_data_rft cord. 


NOTE: The RPG is capable of reading input records that include fields that 
contain data in sterling formats and writing output records that include 
fields that contain data in sterling formats. The RPG is also capable of 
converting data contained in input record fields from sterling formats into 
pence, and the data contained in output record fields from pence to sterling 
formats. (All conversions include the signs of the relevant fields.) The 
sterling format of output record fields can be specified by use of an edit 
word. (See "Cons t ant/Ed i t Word. 1 ') The RPG will also allow for the European 
conventions governing the use of decimal points and commas in printed 
reports. 


Object Program Logic 


The overall logic of the RPG is discussed here to provide the programmer with 
a general idea of the internal operation of RPG object programs. 


RPG object programs perform the following operations: 

1. If the object program is to produce a printed report, all print lines 
containing heading information specified by the programmer are written 
whenever the print form is at the beginning of a page. 

2. One data record is obtained from each input file. If there is more than 
one input file the RPG obtains one data record from the input master file 
(see definition below) and one data record from each of the input support 
files (see definition below). The records from the master and each support 
file make up one logical unit. Each such logical unit is processed as if it 
were a single data record. 

3. A check is made to determine whether a control break has occurred in any 
control field. (See "Control Break” and "Control Field" below.) 

4. If a control break has occurred, any calculations that are to be executed 
as a result of the break are performed. In addition, if the object program 
is to produce a printed report, all print lines are written that represent 
totals the programmer has specified that the object program is to accumulate. 

5. The calculations the object program is to perform under normal conditions 
(i.e., all calculations, the execution of which do not depend on a control 
break taking place), are executed. These operations are performed on data 
taken from RPG literals and/or data contained in the current input data 
record. The results of these operations are stored in the specified result 
fields. 
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6. Gne output data record is assembled for each output file the object 
program is to produce. The data included in these records is taken from: (a) 
the current input record, (b) result fields, (c) RPG literals or (d) any 
combination of the above. 

7. The assembled data records are written on their respective output files. 

8. Items 2—7 are repeated. 


Control Field 


A field, a change in the contents of which is used to determine whether the 
object program will perform special calculations that it would not otherwise 
perform, is termed a control field. 


Control Break 

A control break is said to have occurred in a control field whenever the 
contents of the field change. For example, consider the following situation: 

1. Each record contained in a certain input field represents one purchase 
made by a customer of the reporting firm. 


2. A particular field included in each record contains a number that 
identifies the customer who made the purchase. 

3. The field discussed in item 2 is designated a control field. 


Whenever a data record is obtained from the input 
the customer identification number in that record 
number contained in the record that preceded it. 
comparison is unequal, a control break is said to 
customer number control field. 


file discussed in item 1, 
is compared to the customer 
If the result of the 
have occurred in the 


Master File 


When data records are to be obtained from more than one input file, one of 
these files must be designated the master file. Generally speaking, the file 
designated the master file should be the input file that contains information 
of a permanent nature (e.g., in a payroll program; an employee's name, serial 
number, hourly wage, and department number). 


Support Files 


All files not designated the master file must be designated support files. 
Support files are distinguished from the master file by the nature of the 
information contained in their records. This information is generally of a 
variable nature. For example, in a payroll program, one support file might 
contain the number of regular hours and the number of overtime hours each 
employee has worked during the current week. 


Int roduc tion 
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ySING_THE_RPG 


To make use of the RPG, the programmer must perform the steps outlined in the 
paragraphs that follow, 

1• Describe, by means of the File Definitions entries made on the RPG coding 
form, the overall characteristics of the input files from which the object 
program is to obtain records, and the characteristics of the output files the 
object program is to produce. 

2. Describe, by means of the Input Specifications entries made on the RPG 
coding form, the characteristics and fields of the records contained in each 
input file the object program is to process. 

3. Define, by means of the Calculation Specifications entries made on the 
RPG coding form, the operations (e.g., add, subtract, move, etc.) the object 
program is to perform on data taken from input records and RPG literals. 

4. Describe, by means of the Cutput-Format Specifications entries made on 
the RPG coding form, the characteristics and fields of the records the object 
program is to write on the printed report and other output files (if any). 

5. Make up a source program card deck from the information entered on each 
RPG form; the information from one line punched in one card, the resulting 
cards arranged as shown in Figure 3. 



The object program produced by the RPG compiler from the source deck can then 
be executed to obtain the output files specified by the programmer. 


R PG La nguag e Entr ies 


A detailed discussion of the entries that may be made on the RPG coding form 
(see Figure 4) is presented in this section of the publication. 
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Figure 4. RPG Coding Form 


RPG CODING CARD 


The RPG coding card (see Figure 5) provides a convenient guide to assist 
programmers in making File Definitions* Input Specifications* Calculation 
Specifications* and Gutput-Format Specifications entries on the RPG coding 
form. The RPG coding card is essentially a pictorial breakdown of the 
columns in which the various entries are to be entered. 


In order to use the card* the programmer determines what type of 
to be made and places the portion of the card dealing with those 
above the line of the coding form on which the entries are to be 
Figure 6 )• 


entries are 
entries 
made (see 


Common Columns 


The same type of information is entered in certain columns on all lines of 
the RPG coding form. These common columns are discussed in the material that 
foilows• 


Ea 2 ®_N.yn!ber_f_Co iumns_l—2_) 


Each page of the RPG coding form used by the programmer should be numbered 
consecutively starting with the number 01. The relevant page number should 
be entered in columns 1—2 of every line of the form on which the programmer 
makes an entry. 
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Figure 6• Using the RPG Coding Form and Card 


Lj_ne_Number_£Cqj L umns_3-5J 


Program 

Identification 


A three-digit number should be entered in these columns of every line of the 
coding form on which the programmer has made an entry. The RPG compiler uses 
this number to perform a sequence check on the source program card deck. If 
a card is included in the deck out of sequence, an error message is written 
by the compi1er. 
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Form_T^pe_{J3oJ^umn_6J 


The character entered in this column indicates the type of entries that are 
being specified on the line, as follows: 

CHARACTER TYPE OF ENTRY 

F File Definitions 

I Input Specifications 

C Calculation Specifications 

0 Output-Format Specifications 


Program_Identi_f icatj_on_{_Coiumns_ 75 - 80 _) 


The programmer may enter from one to six alphameric characters in these 
columns on each line to identify the program, or portion of a program, to 
which the entries made on the line belong. 


Comments Line 


If the programmer places an asterisk in column 7 of a line on the coding 
form, the RPG compiler assumes that the line contains only comments. The 
compiler will reproduce the information entered on such a line, unchanged, in 
the printed listing of the source program, in the same relative position in 
which the information was encountered in the source program. It will 
disregard the information on such a line in the production of the object 
program• 


File Definitions Entries 


The File Definitions entries define the characteristics of: (a) the input 
files from which the object program is to obtain data records, and (b) the 
output files on which the object program is to write data records. The 
entries made on one line define one file. Each file that is to be referenced 
by the object program must be defined. 


F j_J.e_Name_{_CoJ. umns_7-16J 


The name of the file defined on the line is entered, 1eft-justified, in 
columns 7-16. The name of the file may consist of from one to ten alphabetic 
characters. 


The file name entered in these columns must also be entered on the first line 
used to make the Input Specifications entries (for input files) or the 
Output-Format Specifications entries (for output files) that define the 
characteristics of the records that belong to the file. 
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F j. J. e_Type_(^oJ. umn_17J 


The entry made in this column indicates the type of file defined on the line, 
as foilows: 


ENTRY FILE_JYPE 

I Input 

0 Output 

U Update 


Update Files 


An update file is a file that is both an input and an output file. What 
makes it an update file is the way in which the object program handles the 
data records it obtains from and writes on the file. If the object program 
alters the data contained in one or more fields of each record belonging to 
the file without changing the nature of the data, the length of the field in 
which it appears, or the location of the field in each record, the file is 
considered an update file. 


F j. j,e_Desj_gnation_^Cpj,umn_18J 


If the object program is to reference two or more input files: (a) the letter 
M entered in this column indicates that the file defined on the line is the 
master file, and (b) the letter S entered in this column indicates that the 
file defined on the line is a support file. (Master files and support files 
are discussed under "Object Program Logic.") 


No entry is made in this column if: (a) the file defined on the line is an 
output file, or (b) the object program is to reference only one input file. 


Fleid_Seguencj,ng_^CpJ. urnns_l 9^20 J 


RPG object programs are capable of checking one specific field in each record 
obtained from the file defined on the line. This check can be used to 
determine whether the value of the data contained in the specified field is 
higher than, or lower than, the value of the data contained in the same field 
in the last record obtained from the file. Columns 19—20 will be used to 
indicate whether this check is to be made. 


FjJ.e_Format ( Column_21_) 


The entry made in this column indicates the type of records contained in the 
file defined on the line, as follows: 

ENTRY RECORD T YPE 

1 Unblocked, variable-length records 

2 Blocked, variable-length records 

4 Blocked, fixed-length records 
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?ioc]SlJ2fl_£actor_{_CoJ.umns_22-25J 


When the number 1 has b 
22—25. If the number 2 
columns 22-25 specifies 
block. When the number 
columns 22-25 specifies 


een entered in column 21, no entry is made in columns 
has been entered in column 21, the entry made in 
the maximum number of records that may appear in eac 
4 has been entered in column 21, the entry made in 
the number of records contained in each block. 


h 


5®cord_Lenflth_^CoJ.umns_26-3 0 J 


If the number 1 is entered in column 21, no entry is 
When the number 2 is entered in column 21, the entry 
specifies the maximum number of characters that can 
the number 4 is entered in column 21, the entry made 
specifies the number of characters in each record. 


made in columns 26-30 
made in columns 26-30 
appear in each block, 
in columns 26—30 


If 


Columns 31-74 


These columns are reserved for future 


IBM Programming Systems use. 


Input Specifications Entries 


The Input Specifications entries describe the characteristic 
the input data records that the object program must process 
desired printed report. 


s and fields of 
to produce the 


These entries are divided into two main groups, the input 
entries and the input field definition entries. The input 
entries describe the general or overall characteristics of 
records. The input field definitions entries describe the 
fields contained in the input data records. 


record definition 
record definition 
the input data 
makeup of the 


When the records of a file are all of the same format 
the input record definition entries on only one line 
records of a file are divided into two or more record 
must make the input record definition entries on one 
group contained in the file (see "Input Record Groups 
follows). 


, the programmer makes 
of the form. When the 
groups, the programmer 
line for each record 
" in the material that 


line h of h? d deflnitlon entries have been made by the programmer on a 

that 1 i ° ? m ’ ?° l ?P Ut field definition entries may be made on 

made on Ji Conversely, if the input field definition entries have been 

made on a line, no input record definition entries may be made on the same 


Only one record field may be defined on each line of the form, 
restriction on the number of fields that may be defined. 


There is no 


The line used to describe the characteristics 
precede the lines used to describe the fields 


of the records must immediately 
found in each record. 


Input Record Groups 


The records of each input file may be divided 


into two or more groups. 
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If the input file is divided into record groups, each distinct group must be 
assigned an identifier. This identifier must be a unique two—character 
numeric or alphabetic code (e.g., 01, or AA). 


The records of each group may appear on the relevant storage media in a 
particular sequence. That is, each record belonging to record group B 
appears on the storage media immediately following a record belonging to 
group A, and immediately preceding a record belonging to group C. Figure 7 
shows card, tape* and disk files on which this type of organization has been 
imposed• 


If a file is divided into record groups and the records belonging to the 
groups appear on the storage media in a predetermined sequence, the object 
program is capable of checking the order in which records are obtained from 
the file. In addition, it is capable of writing an error message and 
terminating the processing of the program if a record is obtained out of 
sequence• 


The programmer indicates this check is to be performed by making no entry in 
column 20 of the line used to define the characteristics of the records 
belonging to each affected group. See "Option (Column 20)" for a detailed 
discussion of this feature. 


When the programmer wants the object program to perform this check, the 
identifier assigned to each group must be a two-digit number that reflects 
the predetermined sequence. This means the identifier of one group must have 
a higher numeric value than the identifier of the group that precedes it in 
the sequence, and a lower numeric value than the identifier of the group that 
foilows it. 


If a file is divided into record groups, but the records of the groups do not 
appear in any particular order, or the order in which they appear is not to 
be checked by the object program, the identifier assigned to each record 
group must consist of two alphabetic characters. 


The identifier assigned a particular record group is entered in columns 17—18 
of the line of the form used to define the characteristics of the records 
belonging to the group. See "Sequence (Columns 17—18)" for a discussion of 
this entry. 


INE]J!_Eecord_definitign_entries 


The input record definition entries are made in columns 7-43. 


File Name (Columns 7—16) 


The name of the file to which the records defined on the line belong must be 
entered, 1eft—justified, in these columns. A file name may consist of from 
one to ten alphabetic characters. If a file is divided into two or more 
record groups, this entry is only made on the line used to define the first 
record group belonging to the file. 


Sequ ence (Colum ns 17-18 ) 


The identifier assigned to the records defined on the line, is entered in 
these columns. If the records belong to a record group, and they appear on 
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the relevant storage medium in a predetermined order, the identifier must 
consist of two numeric digits. If the records do not belong to a record 
group, or belong to a group but the records of the group do not appear on the 
relevant storage medium in a predetermined sequence, the identifier must 
consist of two alphabetic characters. 


All lines that contain two alphabetic characters in columns 17-18 must 
precede all lines that contain numeric characters in these columns. 


Nurrber_qf_Recprds_j[_CqJ_umn_19J 


If the records defined on the line belong to a record group and they appear 
on tne relevant storage media one at a time (i.e., as shown in Figure 7), the 
number 1 is entered in this column. If the records belong to a record group 
and they appear on the relevant storage media two or more at a time (i.e., as 
shown in Figure 8), the letter N is entered in this column. If tne records 
defined on the line do not belong to a record group (i.e., all records of the 
affected file have the same format) no entry is made in this column. 


□p t j. on_(_Cq_l umn_20 J 


No entry is made in this column, if the records defined on the line: (a) 
belong to a record group, (b) appear on the relevant storage medium in a 
predetermined order, and (c) the object program is to write an error message 
and discontinue processing whenever a record belonging to the group is 
obtained from the affected file out of sequence. 


Under any conditions other than those outlined in the preceding paragraph, 
the letter 0 is entered in this column. 


Res ut_ Indj. ca to r_(_Cg^umns_21^22_) 


The programmer must enter, in these columns, the unique two-digit number that 
is to be assigned to the record available result indicator associated with 
the record group containing the records defined on the line. (Result 
indicators and record available result indicators are discussed below.) This 
entry may not be omitted. 


Result Indicators 


A result indicator is a switch within the object program. This is either ON 
or OFF. The fact that it is ON or OFF can be used to determine whether the 
object program will perform certain calculations the programmer has 
specified. (For a discussion of how a result indicator can be used in this 
way, see "Conditions" under the discussion of the Calculation Specifications 
entries.) 


If such a switch is to be referenced by the object program, it 
labeled by the programmer. This label must be unique and must 
numeric characters. 


must be 

consist of two 


Record Available Result Indicators 


One record available result indicator is provided for each input record group 
the object program is to process. Whenever a record is made available to the 
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object program from that record group, the affected indicator is set ON • 
When the object program has completed processing the record, this indicator 
is set CFF. 


Rec o r d_J^d en t^f j_c a jt j L on_Codes_(_Co ^umn s_23—4 3_) 

From one to three record identification codes may be specified on each line* 


If the programmer decides that more than three identification codes are 
required, additional codes may be entered on succeeding lines of the form* 
On each line used to specify additional codes, the code word AD must be 
entered, 1eft — justified , in columns 17-19. 


If the programmer wishes to specify identification codes that may be used 
instead of those entered on the initial and any succeeding lines, he may do 
this by: (a) entering the code OR, 1eft—justified, in columns 17-19 of the 
next available line, and (b) specifying one or more identification codes on 
the same line. More than three such identification codes can be specified by 
entering AND in columns 17—19 of one or more lines following the line with OR 
entered in columns 17—19, and specifying additional codes on those lines* 


Each record identification code is specified as follows: 

1. The position, expressed as a four-digit number, in each data record of 
the character that is to be compared against the identification code, is 
entered in columns 23-26, 30-33, or 37-40 (whichever is appropriate). 

2. The letter N is entered in column 27, 34, or 41 (whichever is 
appropriate) when the result of the comparison must be unequal for the 
affected record to be processed by the object program* If the result of the 
comparison must be equal, this column must be left blank. 

3. The letter Z is entered in column 28, 35, or 42, if the zone portion of 
the identification code and the relevant character are to be compared; the 
character D, if the digit portions are to be compared; the character C, if 
both the zone and the digit portions (i*e., the complete character) are to be 
compared. 

4. The character that is to be the record identification code is entered in 
columns 29, 36, or 43. This character may be any valid alphameric character. 

Record Identification Code 


A record identification code is a single alphameric character. This 
character, the zone portion of this character, or the digit portion of this 
character is compared against the character, or appropriate portion of the 
character, contained in a particular position within each record of the 
affected file or record group. This comparison is performed before the 
affected record is made available to the object program for processing. The 
result of this comparison, whether equal or unequal, may be used to determine 
whether the object program is to ignore the record or process it. If the 
programmer specifies that the result of this comparison must be equal, the 
affected record will not be processed if the result is unequal. Conversely, 
if the result must be unequal the object program will not process the 
affected record if the result is equal. There is no restriction on the 
number of record identification codes that the programmer can specify for one 
input file or record group. 
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!NPUT_F_IELp_DEF I NIT I ON ENTRIES 


The input field definition entries are made in columns 44—70* 


I njout_Fj_epd_-_From_£Co_l umns_44—47_) 


The position in each record, expressed as a foui—digit number, of the first 
position of the field defined on the line, is entered in these columns* 


I nput_Fj.e j_d_—_To_{_ Column s_4 8-51_) 

The position in each record, expressed as a four-digit number, of the last 
position of the field defined on the line, is entered in these columns* 


Pnpujt_FJ_eJ[d_pecJ. maj^_Pos j_jt j. on_(_Coj. umn_52_) 


If the field defined on the line contains numeric data, or alphameric data 
that is to be treated as if it were actually numeric data, a numeric digit 
(0-9) is entered in this column* The value of this digit represents the 
number of positions of data to the right of the implied decimal point 
contained in the data* If the data is a whole number, a zero is entered in 
this column. If the field contains alphameric data that is to be treated as 
alphameric data, this column is left blank. 


Input Field N am e (Columns 53-58) 


The label that is to be assigned to the field defined on the line, expressed 
in alphabetic characters, is entered in these columns. Up to six characters 
are allowed and they must be 1eft-justified. 


Input Field Control Level (Columns 59—60) 


If the field defined on the line is a control field, the control level of the 
field is entered in these columns. If the field is not a control field , 
these columns are left blank* 


Control Levels 


When data records contain more than one control field, it is possible to 
assign each such field a control level. This control level is expressed as a 
two-character code. The first character of this code must be the letter L* 
The second character must be a numeric digit (1—9). This digit indicates the 
control level of the field; the higher the numeric value of the digit, the 
higher the control level of the field. Whenever a control break occurs in a 
control field, all processing that is to be performed as a result of the 
break, is executed. (See "Control Level" in the discussion of the 
Calculation Specifications entries.) In addition, all processing is executed 
that is to be performed as a result of a control break in control fields that 
have been assigned control levels of a lower numeric value than the field in 
which the break actually occurred. 
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Ma tchj.n 3 _Zi^Id_ Code_{_ Column s_ 61-62 J 


No entry is made in 
matching field. If 
associated with the 


these columns, unless the field defined on the line is 
the field is a matching field, the matching field code 
field must be entered in these columns. 


a 



Matching Fields 


The concept of matching fields applies only when the object program will be 
required to process two or more input files (i.e., a master file and one or 
more support files). A matching field is a field contained in each record of 
one input file (e.g., the master file) that is the same length and contains 
the same information as a field contained in each record of each of the other 
input files (e.g., the support files). Each matching field must be assigned 
a matching field code. The first character of this code must be the letter 
M; the second must be the digit 1, 2, or 3. The object program compares each 
matching field in each record obtained from the master file with the 
analogous matching field in each record obtained from each of the support 
files. This means, for example, that the field designated Ml in eacn record 
of the master file is compared against the field designated Ml in each record 
of each support file. 


* 


El^AduB^cprc^ReJ, a tJ,on_{_CgJ_umns_63 z 64 J 


When two or more input record types have similar formats, they can be 
specified by a single record type identifier using the DR relation (see 
discussion of record identification codes), with a unique record available 
result indicator assigned to each record type. For this purpose, the 
particular record available result indicator is entered in these columns to 
define the record type to which each field belongs. These columns are left 
blank when the fields are common to all such record types or when this 
facility is not being used. 


ZleId_Indicator_tCpIumns_65 z 70_) 


The label that is to be assigned to the field indicator 
field defined on the line, is entered in these columns, 
the indicator is to represent when the indicator is ON, 
columns the label is entered in, as follows: 


associated with the 
The field condition 
is determined by tne 


IIELD_CONDITIONS label entered in 


Blank or Zero 

Plus 

Minus 


65-66 

67-68 

69-70 


4 


Field Condition 


The condition of a field containing alphameric data is said to be: blank, if 
the field contains only blanks; nonblank, if the field contains data other 
than blanks. The condition of a field containing numeric data is said to be 
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plus, if the contents of the field represent a positive number; minus, if the 
contents of the field represent a negative number; and zero, if the field 
contains only zeros, regardless of whether the sign of the field is plus or 
minus. 


Field Indicators 


A field indicator is a switch within the object program. It may be either ON 
or OFF, and the fact that it is ON or OFF can be used to determine whether 
the object program will perform certain operations on the data contained in 
the field with which the indicator is associated. 


For a discussion of how a field indicator can be used in this way, see 

*'Conditions", under the discussion of the Calculation Specifications entries. 


If such a field indicator is to be checked by the object program, it must be 
labeled by the programmer. This label must be unique and must consist of two 
numeric digits. One field indicator may be associated with each field 
defined on the coding form. 


Columns 71-74 


These columns must be left blank. They are reserved for future IBM 
Programming Systems use. 


Calculation Specifications Entries 


These entries specify the operations the object program is to perform on data 
taken from input records and RPG literals. Each operation is specified on 
one line of the coding form and each operation must be specified in the order 
in which it is to be executed. 


Control Level (Columns 7—8) 


If a control break must occur in a control field for the object program to 
execute the operation specified on the line, the control level assigned to 
the affected control field must be entered in columns 7-8. If no control 
break is required, no entry is made in these columns. 


The control level assigned to a control field is entered in columns 59-60 of 
a line used to make Input Specifications entries. 


Cond j_t J.ons_^CoJ[uinns_9^17J 


These columns may be used to specify the result indicators and/or field 
indicators that must be ON if the operation specified on the line is to be 
performed by the object program. A maximum of three result indicators, field 
indicators, or a combination of the two, may be specified. 


The result indicators and/or field indicators that must be ON are specified 
by entering the labels of the relevant indicator(s) in columns 10—11, 13—14, 
and 16-17, Each of these labels must previously have been entered 
in: (a) columns 21—22 of a line used to make Input Specifications entries, in 
the case of record available result indicators; (b) columns 65—70 of a line 
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used to make Input Specifications entries, in the case of field indicators 
or (c) columns 54—59 of a line used to make Calculation Specification 
entries, in the case of operation result indicators. 


If a result indicator and/or field indicator specified in these columns must 
be OFF, the letter N is entered in column 9, 12, or 15 (whichever is 
appropria te ). 


F acjt or_ l_(_CoJ. umns_l 8—27_) 


The entry made in these columns is the label of a field, or an RPG literal 
that contains data to which the object program is to refer in performing the 
operation specified on the line. If the entry made in these columns is the 
label of a field, the field must be defined in: (a) columns 53-58 of a line 
used to make Input Specifications entries, or (b) in columns 43—48 of a line 
used to make Calculation Specifications entries. This label cannot exceed 
six characters in length and it must be 1eft—justified. 


If the entry made in these columns is a numeric Literal, it may consist of 
from one to ten characters. Included in these characters may be one decimal 
point to indicate the position of the decimal point in the literal, and one 
plus sign or one minus sign to indicate whether the literal contains a 
positive or a negative number. If a plus sign or a minus sign is included, 
it must appear as the leftmost character of the literal. Numeric literals 
must be left-just ified. 


If the entry made in these columns is an alphameric literal, it may consist 
of from one to eight alphameric characters (except quotation signs) and these 
characters must be enclosed by quotation signs. Alphameric literals must be 
1eft-justified in the block and they may not be used in arithmetic 
operations. 


If no entry is made in these columns, an error message will be printed, 
unless the relevant operation does not refer to factor 1 (e.g., Z-ADD ). 


Operation Cod e (Columns 28-32) 


The operation that the object program is to perform is indicated by the 
operation code entered in these columns. There are eleven operation codes. 
They are as follows: 


ADD (Add) 


This operation code causes the contents of the field or literal specified in 
factor 1 to be added, algebraically, to the contents of the field or literal 
specified in factor 2. The result of this operation is placed in the result 
field specified on the line. The field(s) and/or literal(s) involved in this 
operation can only contain numeric characters. 


Z—ADD (Zero and Add) 


This operation code causes the data contained in the numeric literal or field 
specified in factor 2, to be placed in the result field specified on the 
line, after that result field has been set to zeros. Factor 1 is not 
referenced during this operation. 
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SUB (Subtract) 


This operation code causes the contents of the field or literal specified in 
factor 2 to be subtracted, algebraically, from the contents of the field or 
literal specified in factor 1• The result of this operation is placed in the 
result field specified on the line. The field(s) and/or literal(s) involved 
in this operation can only contain numeric characters. 


Z—SUB (Zero and Subtract) 


This operation code causes the negative of the number contained in the 
literal or field specified in factor 2 to be placed in the result field 
specified on the line. This operation is performed after the indicated 
result field has been set to zeros. The field or literal specified in factor 
2 can only contain numeric characters. Factor 1 is not referenced during 
this operation. 


MULT (Multiply) 


This operation code causes the contents of the field or literal specified in 
factor 1 to be multiplied, algebraically, by the contents of the field or 
literal specified in factor 2. The result of this operation is placed in the 
result field specified on the line. The field(s) and/or literal(s) involved 
in this operation can only contain numeric characters. 


DIV (Divide) 


This operation code causes the contents of the field or literal specified in 
factor 1 to be divided by the contents of the field or literal specified in 
factor 2. The result of this operation (i.e., the quotient) is placed in the 
result field specified on the line. The contents of the field or literal 
specified in factor 2 cannot be equal to zero. The field(s) and/or 
literal(s) involved in this operation can only contain numeric characters. 

Any remainder that results from this operation will be lost. 


DIVR (Divide With Remainder) 


This operation code causes the object program to perform the same operations 
that the DIV operation code causes it to perform, with one exception. The 
exception is that the remainder resulting from the operation, rather than the 
quotient, will be placed in the result field specified on the line. If no 
remainder results from the operation the relevant result field will be set to 
zeros• 


COMP (Compare ) 


This operation code causes the contents of the field or literal specified in 
factor 1 to be compared against the contents of the field or literal 
specified in factor 2. The outcome of this operation may be used to turn an 
operation result indicator ON (see "Result Field Conditions”). 


If the field or literal specified in factor 1 contains numeric data and the 
field or literal specified in factor 2 contains alphameric data, only the 
numeric or digit portions of the data contained in the latter is involved in 
the comparison. The converse of this statement is also true. When the 
field(s) and/or literal(s) involved in this operation both contain alphameric 
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data, the operation is performed according to the internal collating 
sequence. 


If the field(s) and/or literal(s) involved both contain alphameric data and 
are not equal in length, the shorter of the two is padded with low—order 
blanks until it is the same length as the larger. If the field(s) and/or 
literal(s) involved contain numeric data and are not equal in length, they 
are aligned according to the position of the implied decimal point contained 
in each. The shorter field or literal is then padded with high-order and 
low-order zeros until it is the same length as the larger. 


MOVE (Move) 


This operation code causes the contents of the field or literal specified in 
factor 2 to be placed in the result field specified on the line. The data 
moved by this operation is placed in the affected result field. The field or 
literal specified in factor 2 may contain alphameric or numeric data. Factor 
1 is not referenced by this operation. 


MZONE (Move Zone) 


This operation code causes the zone portion of the low-order character 
contained in the field or literal specified in factor 2 to be moved to the 
low—order character of the indicated result field. Factor 1 is not 
referenced by this operation. 


LOKUP (Table Lookup) 


This operation code causes a table lookup operation to be performed. The 
field specified in factor 1 contains the first table argument of the affected 
table. The field or literal specified in factor 2 contains the relevant 
search argument. The table function located by the operation (if any) is 
placed in the result field specified on the line. The results of this 
operation may be used to set an operation result indicator ON (see "Kesult 
Field Conditions" ). 


Fac tor_2__(_CoJl umns_33-42J 


The entries, the purpose of the entries, and the rules governing the entries, 
that may be made in factor 2 are the same as those detailed in the discussion 
of factor 1. If no entry is made in these columns, an error message will be 
printed unless the relevant operation does not refer to factor 2. 


Result Field Name (Co lu mns 43—48) 


The label of the result field that is to be associated with the operation 
specified on the line, is entered, 1eft—justified, in these columns. Such a 
label may consist of from one to six alphabetic characters. 


If the operation specified on the line is a table lookup operation and 

(a) the table does not have functions associated with the table arguments, or 

(b) functions are associated with the arguments but the programmer does not 
want the relevant function placed in a result field, columns 43-48 may be 
left b1ank• 
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Result Field Length ( Columns 49—51) 


The length of the result field defined on the line, expressed as a 
three-digit number, is entered in these columns* If the length of the data 
placed in this field exceeds the length of the field, the high-order 
characters of data are lost* 


Result F ield Decimal Position (Column 52) 


When numeric data is to be placed in the result field defined on the line, a 
one—digit number is entered in this column that is equal to the number of 
positions of data the programmer wishes to retain that are to the right of 
the implied decimal point contained in the data. If alphameric information 
is to be placed in the result field, no entry is made in this column. 


Resul t Field Half Adjust (Column 53) 


The letter H entered in this column causes a numeric value of 5 to be added 
to the first character to the right of the last character the programmer 
wishes to retain in the data that is to be placed in the result field* The 
character to which 5 was added and all characters to the right of it are then 
dropped and the balance of the data is placed, right—justified, in the result 
field* If the object program is not to perform this operation, or the data 
that is to be placed in the result field is alphameric data, no entry should 
be made in this column. 


Result Field Conditions (Columns 54—59) 


Three different result indicators (i*e«, operation result indicators) may be 
labeled in these columns. The indicators and the conditions under which each 
will be set ON are shown in Figure 9. 


If the operation defined on the line is a table lookup operation, the result 
indicator(s) that the programmer labels in columns 54—59, perform an 
additional function. In this situation, they indicate the type of search 
that is to be executed. The manner in which they do this is discussed in the 
paragraphs that follow. 


When the table arguments appear in storage in random order, (see "Random 
Order" below) the only type of search that may be performed is a search for a 
table argument that is equal to the search argument. Under these conditions, 
the programmer must enter a label in columns 58—59, but he may not enter a 
label in columns 54—55 or 56—57. The fact that a label appears in columns 
58-59, but none appear in columns 54—57, indicates a search for a table 
argument equal to the search argument, is to be performed. 


When the table arguments appear in storage in an ascending or descending 
sequence (see "Ascending Sequence" and "Descending Sequence" below), the 
types of searches that may be performed and the indicators that must be 
labeled to identify the relevant type of search, are shown in figure 10. 


Random Order 


A table of arguments is said to be organized in random order when the 
arguments do not appear in storage according to any order or sequence. 
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INDICATOR 

INDICATOR SET ON 

Labe 1 
Entered 

In 

Co 1umns 

Arithmetic 
Calculation 

Compare 

Table lookup 

54-55 

Data placed 
in result 
field is a 
pj_us number 

Value of the 
contents of the 
field or literal in 
factor 1 is 
higher than that 
of the field or 
literal specified 
in factor 2 

Sma1 lest table 
argument higher 
jthan search 
argument is found 

56-57 

Data placed 
in result 
field is a 
m i nus 
number 

Value of the 
contents of the 
field or literal in 
factor 1 is lower 
than that 
of the field or 
literal specified 
in factor 2 

Greatest table 
argument lower 
than search 
argument is found 

58-59 

Data placed 
in result 
field is 
equal to zero 

Value of the 
contents of the 
field or literal in 
factor 1 is 
equal to that 
of the field or 
literal specified in 
factor 2 

Search argument 
equal to 
an argument 
found in the 
table 




Figure 9. Operation Result Indicators 


TYPE OF SEARCH 

COLUMNS INTO WHICH 
RESULT INDICATOR LA¬ 
BEL MUST BE ENTERED 

Search for smallest table 
argument higher than search 
argument 

Columns 54-55 

Search for greatest table 
argument lower than search 
argument 

Columns 56—57 

Search for table argument equal 
to search argument 

Columns 58—59 

Search for table argument higher 
than, or equal to f search argument 

Columns 54-55 
and Columns 58-59 

Search for table argument lower than, 
or equal to, search argument 

Columns 56—57 
and Columns 58—59 


Figure !()• Table Lookup 








Ascending Sequence 


A table of arguments is said to be organized in an ascending sequence when 
the value of a table argument is higher than the value of the argument that 
precedes it, and lower than the value of the argument that follows it. 


Descending Sequence 


A table of arguments is said to be organized in a descending sequence when 
the value of a table argument is lower than the value of the argument that 
precedes it, and higher than the value of the argument that follows it. 


Comments (Columns 60— 74) 


Columns 60—74 constitute the comments columns. The programmer may enter any 
comments he wishes in these columns. 


Output-Format Specifications Entries 


The Output—Format Specifications entries define the characteristics and 
fields of the data records that are to be written on the printed report and 
other output files (if any) the object program is to produce. 


The Output—Format Specifications entries are divided into two main groups. 
These groups are the output record definition entries, and the output field 
definition entries. 


The output record definition entries made on one line of the form are used to 
define the characteristics of the records belonging to a particular record 
group of an output file or of a particular output file, if that file is not 
divided into groups of records. 


When the programmer makes the record definition entries on a line of the 
form, no field definition entries may be made on that same line. 


The field definition entries are used to define each field contained in the 
records belonging to a particular output record group or file. Only one 
field may be defined on each line. The lines of the form used to define the 
fields of the records belonging to a particular file or group should 
immediately follow the line used to define the characteristics of the records 
belonging to that file or group. If the programmer makes the field 
definition entries on a line of the form, no record definition entries may be 
made on that same line. 


Output Record Groups 


Each output file may be divided into two or more groups of records. The 
records belonging to each group may then have a different format. This 
allows the programmer to mix records of different formats on the same output 
file. If an output file is divided into record groups, the record definition 
entries made on one line of the coding form must be used to define the 
characteristics of the records belonging to one group. 
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Page Numbering 


When an output file is to be written on a printer, the object program is 
capable of causing consecutive page numbers to be printed on each page of the 
print form used for the file. If the object program is to perform this 
function, the record definition entries must be made on a line of the form as 
if each page number were a field of a data record belonging to a particular 
record group of the printer output file. In addition, certain special 
information must be supplied by the field definition entries made on the next 
line of the form. The special information that must be provided in these 
columns is detailed in the appropriate sections of the discussion covering 
the field definition entries. 


Spacing Chart 


A spacing chart is provided to allow the programmer to lay out a pictorial 
representation of the format of each output file that the object program is 
to produce. This chart was designed for printer output files, but it may be 
used effectively for other types of output files. The numbers across the top 
and the bottom of this chart represent the print positions available on the 
standard print or listing form. The numbers down the left-hand edge of the 
chart indicate the lines that are available on each page of the standard 
print form. This chart is especially useful for establishing the print 
positions in which the records of a file are to be printed and the spacing 
that is to exist between each record. An example of the spacing chart is 
shown in Figure 11. 


In the example shown in Figure 11, all constant information is placed in the 
print positions in which it is to appear; variable information is represented 
by x's; special characters are entered where they are to appear; and zero 
suppression is indicated by a zero placed in the position where the zero 
suppression operation is to end. 

gyTPUI_RECORD_DEFINITION_ENTRIES 

The record definition entries are made in columns 7-33. 


F j. J. e_Name_(^Co j^umn s_7—16J 

The name of the file to which the records defined on the line belong must be 
entered, 1eft—justified , in these columns. A file name may consist of from 
one to ten alphabetic characters. If a file is divided into two or more 
groups, this entry must be made on each line used to define a record group 
belonging to the file. 


Outp ut Record Type (Column 17) 


Output files may contain three different types of records. The three types 
are header records, detail records, and total records (see definitions 
below). 


The letter H entered in column 17 indicates that the records defined on the 
line are header records. The letter D entered in column 17 indicates that 
they are detail records. The letter T entered in column 17 indicates that 
they are total records. There must always be an entry made in this column. 
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IBM 407, 408, 409, 1403 AND 1404 PRINTER SPACING CHART 

8 Lines per inch 




Figure 11. Printer Spacing Chart 
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Header Record 


A header record is a data record containing information that serves to 
identify other data included in the same file. The records shown on lines 2, 
5, and 6 of the spacing chart illustrated in Figure 11 are header records. 
Each of the header records shown in Figure 11 belongs to a different record 
group. 


The information that is to be contained in each header record belonging to a 
particular record group may be made available to the object program in 
several ways. One method is covered under "Constant/Edit Word" in the 
discussion of the output field definition entries. 


Once the information that is to be contained in each header record belonging 
to a particular record group has been made available, it is stored so that 
the object program may reference it whenever a header record belonging to 
that group is to be written on the output file. 


Each time a record is written on the printer output file, the object program 
makes a check to determine if a header record belonging to any of the record 
groups included in the file is to be written on the file at that time. If a 
header record from each of two or more groups are to be written at that time, 
they are written in the order in which their characteristics are defined on 
the form. 


Det ai1 Record 


A detail record is a record made up of data taken from input records, the 
results of operations performed by the object program, or RPG literals. An 
example of a detail record is a record that contains the type of information 
shown on line 9 of the spacing chart illustrated in Figure 11. 


Total Record 


A total record is a record made up of data that is a total or accumulation of 
some kind. Examples of total records are the records shown on lines 12 and 
15 of the spacing chart illustrated in Figure 11. The record shown on line 
12 represents a minor total (i.e., an accumulation of all the invoice amounts 
due from a particular customer). The record shown on line 15 represents a 
final total (i.e., the accumulation of all the invoice amounts due from all 
the customers of the reporting firm). Each of the total records shown in 
Figure 11 belongs to a different record group. 


Whenever a record is written on the printer output file, the object program 
makes a check to determine if a total record belonging to any record group 
included in the file is to be written on the file at that time. If a total 
record from each of two or more record groups are to be written at that time, 
they are written in the order in which their characteristics are defined on 
the coding form. (Control breaks may also be used to force the printing of 
total records.) 

Stacker (Column 18) 


No entry is made in this column unless the records of the file or record 
group defined on the line are to be punched on a card—punch output device. 
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The one digit number entered in this column indicates the stacker into which 
punched cards belonging to the relevant file or record group are to be 
selected. 


£riBi«r_S2aci_ng _^CoJ.umns_19-20J 


No entries are made in these columns unless the records of the file or record 
group defined on the line are to be written on a printer. The one-digit 
number (1-9) entered in column 19 indicates the number of lines that the 
print form is to be spaced before each record is printed. The one-digit 
number placed in column 20 indicates the number of lines that the print form 
is to be spaced after each record has been printed. If the print form is to 
be spaced normally before and/or after printing each record, no entries are 
made in these columns. 


£liJ3ler_ChanneJ._Skipping_(_CoJ.umns_21-24J 


No entries are made in these columns unless the records defined on the line 
are to be written on a printer. The two-digit number entered in columns 
21-22 indicates the control carriage tape channel that the printer is to skip 
to before each of the affected records is printed. The two-digit number 
entered in columns 23—24 indicates the control carriage tape channel that the 
printer is to skip to after each record is printed. If the printer is not to 
skip control carriage tape channels before and/or after printing each record, 
no entries are made in these columns. 


5niJBili_Condj_t ions_£Coj,umns_25-33J 


The entries made in these columns (if any) specify the conditions under which 
each of the records defined on the line is to be written. The programmer may 
enter the labels of from one to three result indicators or field indicators 
in these columns; one in columns 26-27; one in columns 29-30; and one in 
columns 32-33. If the specified indicator must be ON for a record of the 
relevant file or record group to be written, the column (i.e., column 25, 28, 
or 31) immediately preceding those the indicator was specified in, must be 
left blank. If the specified indicator must be GFF, the character N must be 
placed in column 25, 29, or 31 (whichever is appropriate). 


NOTE: The programmer may specify additional or alternate result indicators or 
field indicators in the same way that additional or alternate record 
identification codes are specified. See "Record Identification Codes'* under 
the description of the Input Specifications entries. 


The indicators specified in these columns may include: (a) any result 
indicator specified in columns 21-22 of a line used to make Input 
Specifications entries, (b) any result indicators specified in columns 54-59 
of a line used to make Calculations Specifications entries, (c) any of three 
special indicators (see "Special Indicators" below), and (d) any field 
indicator specified in columns 65-70 of a line used to make Input 
Specifications entries. 


Special Indicators 


There are three special indicators. They are the first page special 
indicator, the page overflow special indicator, and the last record special 
indicator. Each of these indicators has been assigned a label that must be 
used by the programmer if he wishes to refer to the indicator. 
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The_f j_r sjt_£a£e_s£ec iQdj_ca tor cannot be used unless the records defined on 

the line are to be written on a printer. This indicator is set OFF when the 
printer spaces the print form to the second page of the output file. It is 
ON until that time and the label assigned to this indicator is IP. 


lhe_£a£e_over f J. ow_s£ecj^,l_ind j_cator cannot be used unless the affected 
records are to be written on a printer output device. This indicator is set 
ON whenever the end of a page of the print form is reached. This indicator 
is set OFF as soon as the print form is spaced to the next page. The label 
assigned to this indicator is OF. 


llie_Last_Record_S£eciai__Indicator is set ON: (a) when the last record is 
obtained from the input file, if there is only one input file, or (b) when 
the last record is obtained from the master file, if there is more than one 
input file. This indicator is OFF until that time and the label assigned to 
this indicator is LR. 


gyTPUI_FIELD_DEFINITION_ENTRIES 


The output field definition entries are made in columns 34-70. 


0utpu_t_F_i eJ_d_Name_(_Cp2.umns_34—39_) 


The label of the field defined on the line is entered, 1eft-justified, in 
these columns, unless this field is to contain an RPG literal (see 
"Constant/Edit Word"). The label entered may consist of from one to six 
alphameric characters. This label must be a label that has previously been 
assigned to an input record field or a result field. That is, the label must 
have previously been entered in columns 53—58 of a line used to make Input 
Specifications entries, or in columns 43—48 of a line used to make 
Calculation Specifications entries. 


NOTE: The code word PAGE must be entered, 1eft-justified, in these columns, 
if the line is to provide the special information necessary for the object 
program to print a page number record on each page of the print form used for 
a printer output file. If the page number is to be reset to 1 under certain 
conditions, those conditions are specified by the entries made in columns 
25-33 of the line with PAGE entered in columns 34-39. 


Zero_Suppression (Column 40) 


The letter Z entered in this column causes a zero suppression operation to be 
performed on the contents of the field defined on the line. This operation 
will be performed before each record containing the field is written. If an 
edit word or RPG literal is entered in columns 46-70 of the line, or zero 
suppression is not wanted, no entry is made in this column. 


glank Afte r (Column 41) 


The letter B entered in this column indicates that the contents of the field 
defined on the line are to be altered each time a record containing the field 
is written on the appropriate output file. If the field contains alphameric 
data, it is set to blanks. If the field contains numeric data, it is set to 
zeros. 
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0^l2^1_Ziej_d_End_Posj L tJ_on_{_CoJ. urnns_42-45J 


The number entered, right-justified, in these columns indicates the position 
of the last character contained in the field defined on the line within each 
record that includes the field. When the field is the last in each record 
that contains it, the number entered in these columns must equal the number 
of character positions contained in each record* 


NOTE; If the line is being used to provide special information necessary for 
the object program to number each page of a printer output file, the number 
entered in these columns indicates the position on the line of each print 
form page in which the low-order digit of the page number is to be printed. 


Constan t/Edi t Word lColumns_46 z 7Qj 


An RPG literal of up to twenty-three alphameric characters may be entered in 
these columns. If a literal is entered it must be enclosed by quotation 
signs (•), even if it contains nothing but numeric characters. The RPG 
compiler will take this literal and place it, right-justified, in the field 
defined on the line. This information will then be output in each record 
that contains the field. 


NOTE: Entering a literal in these columns is a convenient way of providing 
the constant information that is to be included in header records. 


The programmer may enter an edit word, enclosed in quotation signs ( • ), in 
these columns, rather than a literal. If an edit word is entered, the object 
program will reference it to edit the contents of the field defined on the 
line. This editing operation will be performed before each record containing 
the field is written on the relevant output file. 


When a literal is entered in columns 46-70, columns 34-39 (i.e., field name) 
on the same line must be left blank. When an edit word is entered, column 40 
(i.e., zero suppression) on the same line must be left blank. (The editing 
operation is capable of performing zero suppression. The zero entered in the 
units position of the edit word shown in Figure 12 caused the supression of 
all zeros encountered in the data field up to and including the implied units 
position. If an asterisk had been placed in this position, each zero that 
was suppressed would have been replaced with an asterisk.) 


Edit Word 


An edit word is a field made up primarily of special characters. These 
special characters are used to control the editing of a data field, or are 
themselves inserted in the data field in the same relative position that they 
appear in the control word. An example of the editing process is shown in 
Figure 12. 
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Figure 12. Edit Operation 
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Co1umns_71-74 


These columns are left blank. They are reserved for future IBM Programming 
Systems use. 
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EXAMPLES 


The generation of six object programs, each of which is capable of producing 
a printed report (i.e., printer output file) of varying degrees of detail and 
complexity, is discussed in this section of the publication. 


The first object program discussed is an 80/80 listing. That is, an object 
program capable of reading data records from a punched card input file, and 
writing those same data records on a printer output file, without altering or 
operating on the data contained in the records. 


The second object program described in this section is capable of reading the 
same input records discussed above; rearranging the order of, and altering 
the spacing between, the fields contained in the records; and writing, as 
detail records, the reorganized data records on a printer output file. 


The third object program covered, in addition to the functions performed by 
the second, is capable of accumulating data for a total record that 
represents a final total. 


The fourth object program presented here, in addition to the functions 
performed by the third object program, is capable of causing an edit 
operation to be performed on the contents of a field in each detail record 
and on the contents of the total record. 


The fifth object program, in addition to the functions performed by the 
fourth object program, is capable of accumulating and printing total records 
that represent minor totals. 


The sixth object program, in addition to the functions performed by the fifth 
object program, is capable of writing certain specified header records at the 
beginning of each page of the print form used for the printer output file. 


Input File 


Each object program discussed in this section references one input file. 

This input file is the same for all six programs, and it is an input file 
that consists of punched cards. Each card included in the file contains one 
data record that includes from one to eighty characters of information. Each 
data record represents a purchase made from the reporting firm by a customer. 
The type of information contained in each record is constant. The types of 
information, and the card columns in which each appears are shown in Figure 
13 . 


The labels assigned to the fields into which the object program will place 
the information shown in Figure 13, are as follows: 


FIELD 


LABEL 

Customer 

Name 

NAME 

Invoice 

Date - Month 

MONTH 

Invoice 

Date — Day 

DAY 

Invoice 

Number 

INVNO 

Customer 

Number 

CUSTNO 

Customer 

Location - State 

STATE 

Customer 

Location — City 

CITY 

Invoice 

Amount 

INVAMT 
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Figure 13. Input File—Card Format 

Two figures accompany the discussion of each of the object programs covered 
in this section. One figure shows the printed report that the object program 
will produce. The other figure shows the source program coding from which 
the object program is generated. 



*> 


Each object program discussed in this section is an expansion or a refinemen 
of the object program that precedes it. As a result, the coding entries 
required to generate one program are in many instances the same as those 
needed to generate the preceding object program. When this is the case, the 
affected coding entries are discussed once, under the program where they are 
first made. This means, for example, the entries that define the 
characteristics of the records belonging to the input file common to all 
object programs, are described only under the discussion of the first object 
program, although the same entries appear on the source program coding 
examples that accompany object programs two through six. 


t 



Program One (80/80 Li sting) 


The first object program discussed in this section is capable of reading the 
records contained in a punched card input file, and writing each of these 
records, unchanged, on a printer output file. The printed report produced by 
this program is shown in Figure 14. 


AMALGAMATED CORP 

1110116031071233 61 

38925 

BROWN WHOLESALE 

1228123241131530231 

80208 

BROWN WHOLESALE 

1214995881131530231 

26117 

FARM IMPLEMENTS 

1018109011189747 77 

2763 

BLACK OIL 

11 8115091853016 67 

59295 

BLACK OIL 

1223122921853016 67 

95097 

LEATHER BELT CO 

11 8115112071536471 

33563 

LEATHER BELT CO 

1217122632071536471 

12175 

GENERAL MFG CO 

11141161529017 6 63 

44012 

GENERAL MFG CO 

11231167629017 6 63 

72222 

A-B-C DIST CO 

911 96892905425 39 

64540 

A-B-C DIST CO 

1111116052905425 39 

27169 

A-B-C DIST CO 

1214122342905425 39 

55933 

8 

29 31 33 38 43 45 48 

74 
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Figure 14. Output - Program One 
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To produce an object program capable of writing the file shown in Figure 14 
the programmer must prepare a source program from the entries made on the 
coding forms shown in Figure 15* 



Figure 15. Language Forms - Program One 


No Calculation Specifications entries are shown in Figure 15 because no 
calculations are to be performed by the object program. 


NOTE: The column headings shown in Figures 15, 17, 19, 21, 23, and 25 are 
taken from the RPG coding card. They do not actually appear on the RPG 
coding form. 


File Definitions Entries 


The File Definitions entries shown in Figure 15 are discussed in the 
paragraphs that follow. 


FUe Name (Columns 7-16) 


The name of the file defined on line 1 is INPUT. The name of the file 
defined on line 2 is OUTPUT. Therefore, INPUT is entered, 1eft-justified, in 
these columns on line 1; OUTPUT, on line 2. 
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FJ. j. e_T\/£e_(_CoJ. umr\_17_) 


The file defined on line 1 is an input file. The file defined on line 2 is 
an output file. As a result, I is entered in this column on line 1; 0, on 
1ine 2• 

FjLl e_Desj_£nat j.on_{_Co l.unm_1.8_) 


The file defined on line 1 is the only input file the object program is to 
reference. The file defined on line 2 is an output file. For this reason, 
no entry is made in this column on either line 1 or line 2. 


Ei®i<lL_Se<Juenc i_ng_L£oJ_ urn ns_l 9—20 J 


The object program is not to perform a sequence check on the value of the 
data contained in a field of each record obtained from the file defined on 
line 1, and the file defined on line 2 is an output file. Under these 
circumstances, no entry is made in column 19 or in column 20 on lines 1 or 2. 


F j_j. e_Forma t_{_CoJ^umn_21_) 


The files defined on lines 1 and 2 consist of blocked, fixed-length records. 
Therefore, the number 4 is entered in this column on lines 1 and 2. 


B iocki.na_Facjt or_(_CoJ_umns_22—25_} 


There is one record in each block contained in the files defined on lines 1 
and 2. As a result, 0001 is entered in these columns on lines 1 and 2. 

Record Length ( Co 1 umns_ 26-3 0_) 


Each record contained in the file defined on line 1 is 80 characters in 
length. Each record contained in the file defined on line 2 is 80 characters 
in length. Therefore, 00080 is entered in these columns on both line 1 and 
line 2. 


Input Specifications Entries 


The Input Specifications entries shown in Figure 15 are discussed in the 
paragraphs that follow. 


INPUT_RECORD_DEFINITIGN_ENTRIES 


All the data records belonging to the punched card input file have the same 
characteristics. The input record definition entries made on line 3 define 
the characteristics of these records. 

F j. J. e_Name_^Cgj L umns_7—16J 

The name of the file to which the records defined on the line belong, is 
INPUT. Therefore, INPUT is entered, 1eft-justified, in these columns. 
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Seguence_^Col.umns_ 17^18 J 


The identifier that is to be assigned to the records whose characteristics 
are defined on the line, is AA• Therefore, AA is entered in these columns. 

Number of Records ( Column 19j 


The records defined on the line, do not belong to a file that is divided into 
record groups. As a result, no entry is made in this column. 


□£tion__{_Col. umn_20_) 


The records defined on the line are the only records contained in the 
affected input file, and the affected input file is the only input file that 
is to be referenced by the object program. Under these conditions, no entry 
is made in this column. 


R es ult Indica to r (Columns 21-22) 


The label 01 is to be assigned to the record available result indicator 
associated with the records defined on the line. Therefore, 01 is entered in 
columns 21—22. 


Record Iden tifi cati on Codes (Co 1umns 23—43J 


The presence of a minus sign (—) in the first position (i.e., card column 1) 
of each data record is the only factor that the object program is to consider 
in determining whether an input record is to be processed or ignored. In 
this situation, 0001 is entered in columns 23-26; column 27 is left blank; 
the letter Z is entered in column 28; a minus sign is entered in column 29; 
and columns 30—43 are left blank. 


INPUT FIELD DEFINITION ENTRIES 


Each of the records defined on line 3 contains one field. The input field 
definition entries made on line 4 define this field. 


Input Fiel d - From (Colum ns 44-47) 

The first position in the field defined on the line coincides with the first 
position in each of the records whose characteristics are defined on line 3. 
Therefore, 0001 is entered in these columns. 


In put F ie l d — T o (Colum ns 48-51 ) 


The last position in the field defined on the line is the eightieth position 
in each of the records defined on the preceding line. Therefore, 0080 is 
entered in these columns. 
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Jnpu 1^_F j_e l_d_Dec j^maJ^Pos i_ t^on_^Co^umn_52J 

The field defined on the line does not include an implied decimal point. 
Therefore, no entry is made in this column. 

Input_F j^eid_Name_£,CoJ_umns_53—58J 


The label assigned to the field is CARDIN. Therefore, CARDIN is entered in 
columns 53—58. 

Input Field Control Level (Co1umns_59-60J 

The field defined on the line is not a control field. Therefore, no entry is 
made in columns 59—60. 

Matchin g Fiel ds (Co lumn s 61—62) 

The field defined on the line is not a matching field. Therefore, no entry 
is made in columns 61—62. 

Fiel d-R ecor d Re lation (Columns 63-6 4) 

There is only one record group in the input file. As a result, no entry is 
made in these columns. 

Field Co ndition (Columns 65-70) 


No field indicator is to be associated with the field defined on the line. 
As a result, no entry is made in these columns. 


Output-Format Specifications Entries 


The Output-Format Specifications entries shown in Figure 15 are discussed in 
detail in the paragraphs that follow. 

OyiPUT_RECORD_DEFINITION_ENTRIES 

All the data records that are to be written on the printed report have the 
same characteristics. The output record definition entries made on line 5 
define the characteristics of these records. 


File Name_(Column s 7-16 ) 

The name of the file to which the records defined on the line belong is 
OUTPUT. Therefore, OUTPUT is entered, left-justified, in these columns. 
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Output,Record T ype (Column 17j 


The records defined on the line are detail records. Therefore, the letter D 
is entered in this column. 


S t acker_{_Coj, umn_ 18_) 


The output file to which the records defined on the line belong is not a 
punched card file. Therefore, no entry is made in this column. 


Erlr_Spacj_ng_{_CoJ. umns_ 19-20J 


The print form on which the affected records are to be written is not to be 
spaced before or after each record is printed. As a result, no entries are 
made in these columns. 


Elinter_ChanneJ,_Skipplng_{_Col.umns_21-24J 


The print unit on which the records are to be written, is not to change 
carriage control tape channels before or after each record is printed. 
Therefore, no entries are made in these columns. 


Oui£ut_Conditions ( Co lumns 25-33J 


The object program is to consider one factor in determining whether a record 
should be printed. This factor is that the relevant record available result 
indicator must be ON (i.e., the record available result indicator associated 
with the input file whose records are defined on line 1). The label assigned 
this result indicator is 01. Therefore, no entry is made in column 25; 01 is 
entered in columns 26-27; and no entries are made in columns 28-35. 


OUTPyi_FIELD_DEFINITION_ENTRIES 


Each of the records whose characteristics are defined on line 5 contains one 
field. The entries made in the output field definition columns on line 6 
define this field. 


□ utput_Fj_eJ. d_Name_{_CpJ. umns_34-39J 


The label assigned to the field defined on the line is CARDIN. Therefore, 
CARDIN is entered, left-justified, in these columns. 


Zero Suppression (Column 40) 


No zero suppression operation is to be performed on the contents of the field 
defined on the line before each record containing the field is written by the 
object program. As a result, no entry is made in this column. 
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Blank After (Column 4 1) 


The field defined on the line is not to be set to blanks after each record 
containing the field is printed. Therefore, no entry is made in this column. 

□ u tpu t_FJ_ej L d_End_PosJ_ tj L on_(_CoJ|. umns_42-45J 

The last position in the field is the eightieth position in each of the 
records that contains the field. Therefore, 0080 is entered in these 
columns. 


Constanjt^EdJ. t_Word_^Cpj L umns_46~70J 

No edit operation is to be performed on the contents of the field defined on 
the line before each record containing the field is printed, and no RPG 
literal is to be placed in the field at the time the object program is 
compiled. Under these conditions, no entry is made in these columns. 


Prog ra m Two (Detail Recordsj 


The second object program, in addition to the functions performed by the 
first, is capable of reading the same input data records, rearranging the 
fields contained in each record, and writing the altered records on the 
printer output file. The printed report produced by this program is shown in 
Figure 16. 
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Figure 17. Language Forms — Program Two 

To produce an object program capable of printing the report shown in Figure 
16, the programmer must prepare a source program from the entries shown in 
Figure 17. 

File Definitions Entries 


The File Definitions entries made 
the same as those made on lines 1 
exception. Each record contained 
characters in length. As a resul 

2 . 


on page 1, lines 1 and 2 in 
and 2 of the form in Figure 
in the file defined on line 
t 00109 is entered in column 


Figure 17 are 
15, with one 
2 is now 109 
s 26-30 on line 
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Input Specifications Entries 


The Input Specifications entries made on page 1, line 3 in Figure 17, are the 
same as those made on line 3 of the form in Figure 15 and discussed under 
program one. The entries made on lines 4-11 are discussed in the material 
that foilows• 


INPUT_FIELD_DEFINITION ENTRIES 


The records defined on page 1, line 3 each contain eight fields. The input 
field definition entries made on page 1, lines 4-11 define these fields. 


Il?J2ul_£ieId_3_Frpm_£.CoIumns_44-47J 


The first position of the fields defined on page 1, lines 4-11 coincides, 
respectively, with the 8th, 30th, 32nd, 34th, 39th, 44th, 46th and 74th 
position of each record that contains the field. As a result, 0008, 0030, 
0032, 0034, 0039, 0044, 0046 and 0074 are entered in columns 44-47 on page 1, 
lines 4-11, respectively. 


l££ui_EieId_ z jrp_{jCpIumns_46-51J 


The last position in the fields defined on page 1, lines 4-11 coincides, 
respectively, with the 29th, 31st, 33rd, 38th, 43rd, 45th, 48th and 80th 
position of each record that contains the field. Therefore, 0029, 0031, 
0033, 0038, 0043, 0045, 0048 and 0080 are entered in columns 46-51 on page 1, 
lines 4-11, respectively. 


Input Field Dec imaj._Posj_tj_on_^Coj^umn_52j 


The data in the field defined on page 1, line 4 does not contain an implied 
decimal point. As a result, no entry is made in column 52 on this line. 


The fields defined on page 1, lines 5—10 contain numeric information with no 
positions of data to the right of the implied decimal point contained in the 
data. Therefore, the number 0 is entered in column 52 on each of these 
1ines• 


The field defined on page 1, line 11 contains two positions of data that are 
to the right of the position occupied by the implied decimal point contained 
in the data. Therefore, the number 2 is entered on the line in column 52. 


Input_Held Name J Columns 53-58j 


The labels assigned to the fields defined on page 1, lines 4-11 are, 
respectively, NAME, MONTH, INVNO, CUSTNO, STATE, CITY, and INVAMT. As a 
result, each of these labels is entered in columns 53-58 on the appropriate 
1 i ne • 


Inp ut Fie l d Con tr ol Lev el (Columns 59 - 60) 
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None of the fields defined on page 1, lines 4-11 are control fields, 
this reason, no entry is made in columns 59-60 on any of these lines 


For 






Matching Fields (Columns 61-62) 

None of the fields defined on page 1 9 lines 4—11 have been designated 
matching fields. As a result, no entry is made in columns 61—62 on these 
1ines• 


Field-Record Relation (C ol umn 63—64) 


There is only one record group in the input file. Therefore, no entry is 
made in these columns. 


Input Field C on dition (Columns 65—70) 


No field indicator is to be assigned to the fields defined on these lines. 
Therefore, no entry is made in these columns. 


Output—Format Specifications Entries 


The Output—Format Specifications entries made on page 2, line 1 of the form 
shown in Figure 17 are the same as those made on line 5 of the form in Figure 
15 and discussed under program one, with the exception of the printer spacing 
entry. The number 1 is entered in column 20 to specify that the print form 
is to be spaced 1 line after printing each record. The entries made on page 
2, lines 2-9 of the form shown in Figure 17 are discussed in the paragraphs 
that follow. 


gyTPUl_FIELD_DEFINITIGN_ENTRIES 


Each of the records whose characteristics are defined on page 2, line 1 
contains eight data fields. The field definition entries made on page 2, 
lines 2-9 define these fields. 


Output Field Name ( Colu mns 34—39) 


The labels of the fields defined on page 2, lines 2-9, are, respectively, 
CUSTNO, NAME, STATE, CITY, INVNO, MONTH, DAY, and INVAMT. As a result, these 
labels are entered in columns 34—39 on the appropriate lines. 


Zero Suppression (Column 40) 


Zeros are to be eliminated from the high-order positions of the fields 
defined on page 2, line 2 and page 2, lines 4—9 before each record that 
contains these fields is written on the printed report. In this situation, 
the letter Z is entered in column 40 on these lines. 


High—order zeros are not to be eliminated from the field defined on page 2, 
line 3. Therefore, no entry is made in column 40 on the line. 
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81^nk_A f t er_{_Co J. unnn_41_) 


None of the fields defined on page 2, lines 2—9 are to be set to blanks each 
time a record containing the fields is output by the object program. For 
this reason, no entry is made in column 41 on these lines. 


0illput_FieId_End_Position_LCoIumns_42 = 45j 


The last position in the fields defined on page 2, lines 2-9 coincides, 
respectively, with the 22nd, 53rd, 59th, 67th, 79th, 88th, 97th, and 109th 
position in each record that contains the field. As a result, 0022, 0053, 
0059, 0067, 0079, 0088, 0097, and 0109 are entered in columns 42—45 on page 
2, lines 2—9, respectively. 


Cpn sjt an t^Ed j_t_Word_{_CoJ L umns_46-7 0J 


No edit operation is to be performed on the contents of the fields defined on 
page 2, lines 2-9 before each record containing the fields is written by the 
object program, and no RPG literal is to be placed in any of these fields at 
the time that the object program is compiled. Under these conditions, no 
entry is made in columns 46—70 on any of these lines. 


Program Three (Final Totalj 


The third object program, in addition to the functions performed by the 
second, is capable of accummu1 ating data for a total record that represents 
the total amount owed the reporting firm by all its customers (i.e., a final 
total). In addition, it is capable of printing this record on the printer 
output file, once the last input record has been obtained and the last detail 
record has been printed. The printed report produced by this program is 
shown in Figure 18. 
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To produce an object program capable of “Siting g °am P f rom'the entries 

Figure 18, the programmer must prepare a source p y 

shown in Figure 19* 
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Fac to r_J._{_CoJ_umn s_ 3,8-2 7_) 


The label of the field whose contents are to be added to the contents of a 
field in which a total is being accumulated, is INVAMT. Therefore, the label 
INVAMT is entered in columns 18—27. 


Operatj[on_Code_(_CoJ. umns_28-32J 


The calculation defined on the line is an add operation. Therefore, the 
operation code ADD is entered in these columns. 


Fac t or_2_^Co j_umns_33—42_) 


The field to which the contents of INVAMT are to be added, is labeled TOTAL. 
Therefore, the label TOTAL is entered in these columns. 


B® su jt_F je jd_Name_£CoJ_umns_43-48_) 


The results of the add operation defined on the line are to be stored in the 
field labeled TOTAL. Therefore, the label TOTAL is entered in these columns. 


Besujt_Fjejd_Len£th_{_Cojumns_49-51J 


The length of the field labeled TOTAL, expressed as a three-digit number, is 
008. Therefore, 008 is entered in these columns. 


B® s uJLt_F je jd_De c jma j_Pos j j i_on_^Co jumn_52_} 


There are two positions to the right of the implied decimal point in the data 
contained in the field labeled TOTAL. Therefore, the number 2 is entered in 
this column• 


ResuJ, t_Fj_eJ,d_H a J,f_ Adjust _£_Cg^ urn n_53J 


No half adjust operation is to be performed on the contents of the field 
labeled TOTAL. Therefore, no entry is made in this column. 


Cgnd jt j_ojQ_{_Co jumns_54-59J 


No result indicators are to be turned ON as a result of the operation defined 
on the line. Therefore, no entries are made in these columns. 


Output—Format Specifications Entries 


The Output—Format Specifications entries made on page 2, lines 11-13 are 
discussed in detail in the paragraphs that follow. 
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OUTPUT RECORD DEFINITION_ENTRIES 


The printed report shown in Figure 18, contains a total record. The 

cnaracteristics of the record group to which this record belongs are defined 

in the output record definition columns on page 2, line 11. 


File Name (Co 1umns_7—16J 


The name of the file to which the records defined on the line belong, is 
OUTPUT. Therefore, OUTPUT is entered in columns 7—16. 


Output Record Type (Column 17) 

The records whose characteristics are defined on page 2, line 11 are total 
records. Therefore, the letter T is entered in column 17. 


Stacker (Column 18) 


The file to which the records defined on the line belong is not a punched 
card file. For this reason, no entry is made in this column. 

Printer Spacing ( Colu mns 19-20) 

The standard print form is not to be spaced before or after each record 
defined on the line is printed. As a result no entry is made in column 19 
and no entry is made in column 20. 

Printer Channel Skipping (C olumns 2 1- 24) 


The printer is not to change carriage control tape channels before or after 
printing each of the affected records. Under these conditions, no entry is 
made in columns 21—22 and no entry is made in columns 23-24. 


Output Conditions (Columns 25-33) 


The record defined on page 2, line 11 is to be printed whenever the object 
program sets the LR (last record) special indicator ON. Therefore, the label 
LR is entered in columns 26—27. 


OUTPUT FIELD DEFINITION ENTRIES 


The total record defined on page 2, line 11 contains two fields. The output 
field definition entries on page 2, lines 12 and 13 are used to define these 
f ie1ds• 


Out put F ield Name (Colu mns 34—39 ) 


The label of the field defined on page 2, line 12 is TOTAL. Therefore, TOTAL 
is entered in columns 34—43 on that line. The field defined on page 2, line 
13 is to contain a literal. Therefore, no entry is made in columns 34-39 on 
that line. 


52 















Ze ro_Suppress j_on_^CoJ. umn_40_) 


A zero suppression operation is to be performed on the contents of the field 
defined on page 2, line 12 before each record containing the field is printed 
by the object program. As a result, the letter Z is entered in column 40 of 
that line. 


No zero suppression operation is to be performed on the contents of the field 
defined on page 2, line 13. Therefore, no entry is made in column 44 of the 
line. 


Blank After (Column 41) 


Neither the field defined on page 2, line 12, nor the field defined on page 
2, line 13 are to be set to blanks after each record containing the fields is 
output by the object program. Therefore, no entry is made in column 41 on 
page 2 on either line 12 or on line 13. 


0utpujt Fj. e l,d_End_PosXt j_gn_{_Coj. umns_42-45_) 


The last position in the field defined on page 2, line 12 coincides with the 
109th position in each record that contains the field. For this reason, 0109 
is entered in columns 42—45. 


The last position of the field defined on page 2, line 13 coincides with the 
111th position of the record that contains the field. Therefore, 0111 is 
entered in columns 42—45. 


Const an t/Ed iI_Word_{_CgjL_umns_46-70J 


No editing is to be performed on the contents of the field defined on page 2, 
line 12 before each record containing the field is printed by the object 
program, and no RPG literal is to be placed in the field at the time the 
object program is compiled. Therefore, no entry is made in columns 46—70 on 
page 2, line 12. 


The literal ** (two asterisks) is to be placed in the field defined on page 
2, line 13 at the time the object program is being compiled. As a result, 
the entry is placed in columns 46-70, on line 13. 


Program Four (Editing) 


The fourth object program, in addition to the functions performed by the 
third, is capable of causing an edit operation to be performed on the 
contents of a field in each detail record, and on the contents of each total 
record that is to be printed on the report. The printed report produced by 
this program is shown in Figure 20. 
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PRINT 
POSITIONS 

Figure 20. Output - Program Four 

To produce an object program capable of writing the output file shown in 
Figure 20, the programmer must prepare a source program from the entries 
shown in Figure 21. 

The Output-Format Specifications entries made in columns 50-74 on page 2, 
lines 10 and 12 are the only entries shown in Figure 21 that do not appear in 
the coding example (i.e., Figure 19) included in the discussion of the third 
object program. They are also the only entries that have not been explained 
in the discussions accompanying programs one through three. They are 
explained in the paragraphs that follow. 


Constant/Ed it W ord (Colu mns 50-74) 


The contents of the fields defined on page 2, lines 10 and 12 are to be 
edited before each record containing these fields is printed by the object 
program. For this reason, the edit word (i.e., 1 $bbb,bbO•bb• ) that is to be 

referenced by the edit operations, is placed in columns 50—74 on page 2, on 
both line 10 and line 12. (The zero in the units position of the edit word 
will cause zeros to be suppressed in the relevant fields up to and including 
the units position. For this reason, no entry is made in column 40 on page 2 
on lines 10 and 12.) 
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Figure 21. Language Forms — Program Four 
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Program Five (Minor Totals) 


The fifth object program, in addition to the functions performed by the 
fourth, is capable of accumulating data for total records that represent the 
total amount owed the reporting firm by one customer (i.e., minor totals). 

In addition, it is capable of writing one of these records on the printer 
output file whenever the contents of the control field CUSTNO change (i.e., a 
record is obtained that represents a purchase made by another customer). The 
printed report produced by this program is shown in Figure 22. 
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Figure 22. Output — Program Five 

To produce an object program capable of writing the output file shown in 
Figure 22, the programmer must prepare a source program from the entries 
shown in Figure 23. 


The only entries shown in Figure 23 that do not appear in the coding example 
(i.e.. Figure 21) included in the discussion of the fourth object program 
are: (a) one Input Specifications entry made on page 1, line 8, (b) the 
Calculation Specifications entries made on page 2, line 2, and (c) the 
Output—Format Specifications entries made on page 2, lines 15—17. They are 
also the only entries that have not been explained in the discussions 
accompanying programs one through four. They are explained in the material 
that foilows• 
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Figure 23. Language Forms - Program Five 
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Input Specifications Entries 


The Input Specifications entry made on page 1, line 8 is discussed below. 
Control L ev el (Colu mns 59 —60) 

The field defined on page 1, line 8 is now a control field. The control 
level that is to be assigned to this field is LI. Therefore, the code LI is 
entered on page 1, line 8 in columns 59-60. 

Calculation Specifications Entries 


The Calculation Specifications entries made on page 2, line 2 are discussed 
in the material that follows. 

Con trol L ev el ( Co lumns 7-8) 

The execution of the operation defined on page 2, line 2 is not dependent on 
a control break. For this reason, no entry is made in these columns. 

Cond itio ns (Cplumns_9-17) 


The record available result indicator labeled 01 must be ON for the operation 
defined on page 2, line 2 to be executed. Therefore, the entry 01 is made in 
these columns. 


Fac tor 1 (Columns 18- 27 ) 


The contents of the field labeled INVAMT are to be added to the contents of a 
field in which a minor total is being accumulated. Therefore, the label 
INVAMT is entered in columns 18—27 on page 2, line 2. 


Oper ation Code (Columns 28-32) 


The calculation defined on the line is an add operation. As a result, the 
operation code ADD is entered in columns 28-32. 

F actor 2 (Columns 33—42 ) 

The field to which the contents of INVAMT are to be added, is labeled GRPTOT. 
Therefore, the label GRPTOT is entered in columns 33—42 on page 2, line 2. 

R esult Field Na m e (Columns 43—481 


The results of the add operation defined on page 2, line 2 are to be stored 
in the field labeled GRPTOT. For this reason, the label GRPTOT is entered in 
columns 43-48 of the line. 
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Be3ult_FieId_Len 2 th_LCoiunin3_49 z 51J 

The field labeled GRPTOT is 8 characters in length. Therefore, 008 is 
entered in columns 49—51 of the line. 


Re suj,jt_FJ,ejLd_De c ^maj.Pos t j_on_^CoJ_umn_52_) 

The data placed in the result field labeled GRPTOT contains two positions 
that are to the right of the implied position of the decimal point contained 
in the data. As a result, the number 2 is entered in column 52 of the line. 


Result Fiel d Half Adjust (C olumn 53) 

No half adjust operation is to be performed on the contents of the field 
labeled GRPTOT. Therefore, no entry is made in column 53 of the line. 


Resuj. t Fiejd Cond i t ion ( Columns 54-59j 

No result indicators are to be turned ON as a result of the operation defined 
on the line. Therefore, no entries are made in columns 54—59 of the line. 


Output—Format Specifications Entries 


The Gutput—Format Specifications entries made on page 2, lines 15—17 are 
discussed in the paragraphs that follow. 


gyTPyi_RECORD_DEFINITION_ENTRIES 

The printed report shown in Figure 22 contains an additional group of total 
records. The characteristics of the records belonging to this additional 
group are defined on page 2, line 15. 

File Name ( Co lumn s 7-16 ) 

OUTPUT is the name of the file to which the records defined on the line 
belong. As a result, OUTPUT is entered, left-justified, in these columns. 

gutput Record T yp e (Column 17) 


The records belonging to the record group defined on line 15 are total 
records. For this reason, the letter T is entered in column 17 of the line. 


Stacker (Co lumn 18) 

The output file to which the records defined on the line belong is not a 
punched card file. Therefore, no entry is made in this column. 
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Printer Spacing (Co 1umns 19-20j 


The print form on which the relevant output file is written is not to be 
spaced before a total record belonging to the record group defined on Line 15 
is printed. Therefore, no entry is made in column 19 on the line. The print 
form is to be spaced one line after a record belonging to the group defined 
on the line is printed. In this situation, the number 1 is entered on the 
line in column 20. 


Printer Channel Skipping (Colum ns 2 1- 24) 

The printer is not to skip carriage control tape channels before or after 
printing a total record belonging to the group defined on page 2, line 15. 
Therefore, no entries are made on the line in columns 21-24. 


Outpu t Co nditions ( Colu mns 25-33) 


A total record belonging to the group defined on page 2, line 15 is to be 
printed whenever a control break occurs in the control field labeled CUSTNO. 
(A control break is said to have occurred in the control field labeled CUSTNO 
whenever the object program obtains an input record that contains a customer 
number that is different from the customer number contained in the last input 
record processed by the object program.) To indicate that this is the case, 

LI (i.e., the control level assigned to the field labeled CUSTNO) is entered 
in columns 26-27. 


OyTPUI_FIELD_DEFINITigN_CQLUMNS 


The fields contained in each total record belonging to the record group 
defined on page 2, line 15, are defined on page 2, lines 16 and 17. 


Output Field Nam e (Colu mn s 34 -39) 


The label of the field defined on page 2, line 16 is GRPTOT. Therefore, 
GRPTOT is entered in columns 34—39. 


The field defined on page 2, line 17 is to contain a literal. For this 
reason, no entry is made in columns 34-39 on the line. 


Zer o S uppression (Col umn 40 ) 


No zero suppression operation is to be performed on the contents of the 
fields defined on page 2, lines 16—17. Therefore, no entry is made on these 
lines in column 40. 


Bla nk Afte r (Co lu mn 41) 


The field defined on page 2, line 16 is to be set to zero after each total 
record containing the field is written by the object program. In this 
situation, the letter B is entered on the line in column 41. 
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The field defined on page 2, line 17 is not to be set to blanks after each 
record containing the field is printed. Therefore, no entry is made on the 
line in column 41. 


Output Fiej^d End Position (Columns 42—45) 


The last position in the field defined on page 2, line 16 coincides with the 
109th position of the record that contains the field; the last position in 
the field defined on page 2, line 17, with the 111th position. Therefore, 
0109 is entered in columns 42—45 on page 2, line 16; 0111, on page 2, line 

17. 


Constant/Edit Wor d (Columns 46—70) 


The contents of the field defined on page 2, line 16, is to be edited before 
each record that contains the field is printed by the object program. Under 
these conditions, the edit word that is to be referenced by the edit 
operation is placed in columns 46—70 of the line. 


The literal * (asterisk) is to be placed in the field defined on page 2, line 
17 at the time the object program is compiled. Therefore, the entry is 

placed on the line in columns 46-70. 


Program Six (Header Records) 


The sixth object program, in addition to the functions performed by the fifth 
object program, is capable of writing certain specified header records at the 
beginning of each page of the print form on which the output file is written. 
The printed report produced by this program is shown in Figure 24. 


To produce an object program capable of writing the report shown in Figure 
24, the programmer must prepare a source program from the entries shown in 
Figure 25• 


The Output-Format Specifications entries made on page 2, lines 3—16 and on 
page 3, lines 1-3 are the only entries shown in Figure 25 that do not appear 
in the coding example (i.e.. Figure 23) included in the discussion of the 
fifth object program. They are also the only entries that have not been 
explained in the discussions accompanying programs one through five. They 
are explained in the paragraphs that follow. 


OUTPUT RECORD DEFINITION ENTRIES 


The printed report shown in Figure 24 contains header records that belong to 
three distinct record groups. The characteristics of the records belonging 
to each of these groups are defined on page 2, lines 3—4, 8—9, and 14—15 
shown in Figure 25. 


File Name (Co lu mns 7—16 ) 


OUTPUT is the name of the file to which the records defined on the line 
belong. Therefore, OUTPUT is entered, 1eft—justified, in these columns on 
page 2, lines 3, 8, and 14. 
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ACCOUNTS RECEIVABLE 


REGISTER 


CUSTOMER 

NUMBER 

CUSTOMER NAME 

LOCATION 
STATE CITY 

INVOICE 

NUMBER 

INVOICE 

MO 

DATE 

DAY 

INVOICE 

AMOUNT 

10712 

AMALGAMATED CORP 

33 

61 

11603 

11 

10 

$ 

389.25 








$ 

389.25* 

11315 

BROWN WHOLESALE 

30 

231 

12324 

12 

28 

$ 

802.08 

11315 

BROWN WHOLESALE 

30 

231 

99588 

12 

14 

$ 

261.17 








$ 

1,063.25* 

11897 

FARM IMPLEMENTS 

47 

77 

10901 

10 

18 

$ 

27.63 








$ 

27.63* 

18530 

BLACK OIL 

16 

67 

11509 

11 

8 

$ 

592.95 

18530 

BLACK OIL 

16 

67 

12292 

12 

23 

$ 

950.97 








$ 

1,543.92* 

20715 

LEATHER BELT CO 

36 

471 

11511 

11 

8 

«*> 

335.63 

20715 

LEATHER BELT CO 

36 

471 

12263 

12 

17 

$ 

121.75 








$ 

457.38* 

29017 

GENERAL MFG CO 

6 

63 

11615 

11 

14 

$ 

440.12 

29017 

GENERAL MFG CO 

6 

63 

11676 

11 

23 

$ 

722.22 








$ 

1,162.34* 

29054 

A-B-C DIST CO 

25 

39 

9689 

9 

11 

$ 

645.40 

29054 

A-B-C DIST CO 

25 

39 

11605 

11 

11 

4> 

271.69 

29054 

A-B-C DIST CO 

25 

39 

12234 

12 

14 

$ 

559.33 








$ 

1,476.42* 








$ 

17,524.23** 

18 

PRINT 

POSITIONS 

32 

59 

67 

79 

88 

97 


109 i: 


Figure 24. Output — Program Six 


Output Record Type (Column 17) 


The records belonging to the record groups defined on page 2, lines 3—4, 8—9, 
and 14—15 are all header records. Therefore, the letter H is entered in 
column 17 on page 2, lines 3, 8, and 14. 


Stac ke r (Co lumn 1 8) 


The records defined on the line belong to a printer file. Therefore, no 
entry is made in this column. 


Prin ter Spacing (Co lumns 19 -20) 


The print form on which the output file is written is not to 
a header record belonging to any of the three groups defined 
3—4, 8—9, and 14—15 is printed. Therefore, no entry is made 
page 2, lines 3, 8, and 14. 


be spaced before 
on page 2, lines 
in column 19 on 
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Figure 25. Language Forms - Program Six 


Examp 1e s 


63 




































































The print form on which the output file is written, is to be spaced one line 
after a header record belonging to the group defined on page 2, lines 3-4 is 
printed; no lines after a header record belonging to the group defined on 
page 2, lines 8 9 is printed; and one line after a header record belonging to 
the group defined on page 2, lines 14-15 is printed. As a result, the number 
1 is entered in column 20 on page 2, line 3; no entry is made in column 20 on 
page 2, line 8; and the number 1 is entered in column 20 on page 2, line 14. 


£rll!ier_Channei_Slsipj2in£_£Coj.umns_21-24J 


The printer is not to skip carriage control tape channels before or after a 
header record from the groups defined on page 2, lines 3-4, 8-9, and 14-15 is 
printed. Under these conditions no entry is made in columns 21-24 on these 
1ines. 


Ql!i21!l_Cond j_t J_ons_^Coj. umns_25-33J 


A header record belonging to each of the record groups under discussion is to 
be written whenever the first page special indicator, or the page overflow 
special indicator is ON. As a result, no entry is made in column 25 on page 
2, lines 3—4, 8—9, and 14—15; the label of the first page special indicator 
is entered in columns 26-27 on page 2, lines 3, 8, and 14; the label of the 
page overflow special indicator is entered in the same columns on page 2, 
lines 4, 9, and 15; and the letters OR are entered in columns 17-18 on page 
2, lines 4, 9, and 15. 


OUTPyi_FIELD_DEFINITION_ENTRIES 


The fields contained in each header record belonging to the group specified 
on page 2, lines 3-4 are defined on page 2, lines 5-7. The fields contained 
in each header record belonging to the group defined on page 2, lines 8-9, 
are defined on page 2, lines 10-13. The fields contained in each header 
record belonging to the group defined on page 2, lines 14-15, are defined on 
page 2, line 16 and on page 3, lines 1-3. 


gujput_Field Name (C olu mns 34-39J 


None of the fields defined on page 2, lines 5-7, 10-13, and 16, and on page 
3, lines 1—3 may be labeled, because a literal is to be placed in each of 
these fields at the time the object program is compiled. Under these 
circumstances, no entry is made in columns 34-39 on any of the affected 
1ines• 


Zero Suppression (Column_40j 


A zero suppression operation is not to be performed on the contents of any of 

the fields defined on page 2, lines 5-7, 10-13, and 16, and on page 3, lines 

1—3. As a result, no entry is made in column 44 on these lines. 


Blan k After ( Co lumn 41j 


None of the fields defined on page 2, lines 5-7, 10-13, and 16, and on page 
3, lines 1—3 are to be set to blanks after each record containing them is 
printed. As a result, no entry is made in column 41 on these lines. 







Out^ujtFj. ej.d_End_Posj_t j.on_£ Column s_42 = 45J 


The last position in the fields defined on page 2, lines 5-7 coincides, 
respectively, with 57th, 78th and 88th position in each record that contains 
the field. As a result, 0057, 0078 and 0088 are entered in columns 42—45 on 
page 2, lines 5—7, respectively. 


The last position in the fields defined on page 2, lines 10-13 coincides with 
the 25th, 80th, 97th, and 109th position in each record that contains the 
field. Therefore, 0025, 0080, 0097 and 0109 are entered in columns 42-45 on 

page 2, lines 10—13, respectively. 


The last position in the fields defined on page 2, line 16, and on page 3, 
lines 1-3 coincides, respectively, with the 40th, 60th, 79th and 108th 
position in each record that contains the field. As a result, 0040, 0060, 
0079 and 0108 are entered in columns 42-45 on page 2, line 16, and on page 3, 
lines 1-3, respectively. 


Cons tan t_or_Ed j,t_ Wo rd_£ Column s_ 46-70J 


The contents of an RPG literal are to be placed in each of the affected 
fields at the time the object program is compiled. In this situation, the 
relevant literal is entered in columns 46-70 on page 2, lines 5-7, 10-13, and 
16, and on page 3, lines 1-3 (see Figure 25). 
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APPENDIX_A 


T_a_b Loo kuj2_ Ojge rations 


Table lookup operations may be performed on a simple type of table. This 
table may not have more than one table function associated with each table 
argument. All arguments must be the same number of characters in length* and 
all functions must be the same number of characters in length. The arguments 
and functions that make up the table may be on the same input file or on 
different input files. When they appear on the same input file they must be 
placed on the file in logical pairs. That is* each table argument must 
immediately precede the table function with which it is associated, or each 
table argument must immediately follow the table function with which it is 
associated. If the arguments and functions that make up the table are 
contained in more than one physical record on an input file* the format of 
all these records must be the same. Table arguments may consist of 
alphameric characters or nothing but numeric characters. They may be in 
either random or sequential order. If they are in a sequential order* that 
order may be ascending or descending. 
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